數據來源

來源為核酸檢測站,取用採樣點數目參考
[https://eservice.ssm.gov.mo/aptmon/aptmon/ch]

核酸採樣點的數據準備

數據更新於以下時間

## [1] "2021-10-05 22:12:15 CST"

地圖

右側 A/B/C 氣泡為類別,點擊可篩選。氣泡越大表示排隊需時越短。

plot <- ggmap(get_map(location = "taipa, macao", zoom = 12), darken = .5, 
base_layer = ggplot(data = LonLat, aes(x = lon, y = lat, label=paste(Location,WaitingQueue,"人")))) +
geom_point(aes(colour = 類別, size = WaitingMinutes, alpha = .2), data = LonLat) +
geom_text(colour = 'white', size = 4, check_overlap = T) +
scale_size(range = c(0, 12), trans="reverse") +
scale_color_viridis_d(option = "magma")

ggplotly(plot)